include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 0.75
Origin: Here
	dot; llabel(, V_{BB},)
	resistor(down_ elen); rlabel(, R_{B}, )
	{
		line right_ elen*0.3 
		TBJ:bi_tr(up_ dimen_) with .B at Here; 
	}
	line up_ 0.3 from TBJ.C 
	dot; rlabel(,V_{DD},)
	resistor(down_ elen from TBJ.E); llabel(, R_{E},); rlabel(+,V_{RE},-)
	dot;llabel(,-V_{SS},)
	dot(at TBJ.E); llabel(,V_{E},)
.PE

